home *** CD-ROM | disk | FTP | other *** search
- object PersBrowser: TPersBrowser
- Left = 91
- Top = 221
- Width = 330
- Height = 304
- ActiveControl = Edit1
- BorderStyle = bsSizeToolWin
- Caption = 'Name Search'
- Color = clBtnFace
- Constraints.MinWidth = 322
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- PrintScale = poNone
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnDeactivate = FormDeactivate
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 241
- Width = 322
- Height = 35
- Align = alBottom
- BevelOuter = bvLowered
- BorderWidth = 3
- TabOrder = 2
- object Panel2: TPanel
- Left = 162
- Top = 4
- Width = 78
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 2
- object Button2: TButton
- Left = 2
- Top = 1
- Width = 73
- Height = 25
- Caption = '&Go to person'
- Default = True
- TabOrder = 0
- OnClick = Button2Click
- end
- end
- object Panel5: TPanel
- Left = 240
- Top = 4
- Width = 78
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- Caption = 'Panel5'
- TabOrder = 3
- object Button3: TButton
- Left = 2
- Top = 1
- Width = 73
- Height = 25
- Cancel = True
- Caption = '&Close'
- TabOrder = 0
- OnClick = Button3Click
- end
- end
- object Panel6: TPanel
- Left = 6
- Top = 4
- Width = 78
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- Caption = 'Panel6'
- TabOrder = 0
- object Button1: TButton
- Left = 2
- Top = 1
- Width = 73
- Height = 25
- Caption = '&Refresh'
- TabOrder = 0
- OnClick = FormShow
- end
- end
- object Panel7: TPanel
- Left = 84
- Top = 4
- Width = 78
- Height = 27
- Align = alRight
- BevelOuter = bvNone
- Caption = 'Panel6'
- TabOrder = 1
- object Button4: TButton
- Left = 2
- Top = 1
- Width = 73
- Height = 25
- Caption = '&Edit person'
- TabOrder = 0
- OnClick = Button4Click
- end
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 0
- Width = 322
- Height = 30
- Align = alTop
- BevelOuter = bvLowered
- BorderWidth = 3
- Caption = 'Panel3'
- TabOrder = 0
- OnResize = Panel3Resize
- object Edit1: TEdit
- Left = 4
- Top = 3
- Width = 324
- Height = 23
- Hint = 'Type your search string here'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnEnter = Edit1Enter
- OnExit = Edit1Exit
- OnKeyDown = Edit1KeyDown
- end
- end
- object Panel4: TPanel
- Left = 0
- Top = 30
- Width = 322
- Height = 211
- Align = alClient
- BevelOuter = bvNone
- BevelWidth = 2
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 1
- object ListBox1: TListBox
- Left = 0
- Top = 0
- Width = 318
- Height = 207
- Hint = 'Double-click to go to person'
- Align = alClient
- BorderStyle = bsNone
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 15
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnDblClick = Button2Click
- end
- end
- object Timer1: TTimer
- Interval = 400
- OnTimer = Timer1Timer
- Left = 32
- Top = 32
- end
- end
-